home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel-075.lha / feel0.75 / Src / clip-switch.s, < prev    next >
Text File  |  1992-02-11  |  945b  |  84 lines
  1. head    1.1;
  2. access;
  3. symbols;
  4. locks; strict;
  5. comment    @# @;
  6.  
  7.  
  8. 1.1
  9. date    92.01.09.23.22.14;    author pab;    state Exp;
  10. branches;
  11. next    ;
  12.  
  13.  
  14. desc
  15. @clipper switch code :->
  16. @
  17.  
  18.  
  19. 1.1
  20. log
  21. @Initial revision
  22. @
  23. text
  24. @# generated by Norcroft CLIPPER C 3.18A Mar 13 1989 at 08:43:49
  25. # r0 EQU 0
  26. # r1 EQU 1
  27. # r2 EQU 2
  28. # r3 EQU 3
  29. # r4 EQU 4
  30. # r5 EQU 5
  31. # r6 EQU 6
  32. # r7 EQU 7
  33. # r8 EQU 8
  34. # r9 EQU 9
  35. # r10 EQU 10
  36. # r11 EQU 11
  37. # r12 EQU 12
  38. # r13 EQU 13
  39. # r14 EQU 14
  40. # sp EQU 15
  41. #
  42. # f0 EQU 0
  43. # f1 EQU 1
  44. # f2 EQU 2
  45. # f3 EQU 3
  46. # f4 EQU 4
  47. # f5 EQU 5
  48. # f6 EQU 6
  49. # f7 EQU 7
  50. #
  51.  .text
  52. #
  53. #
  54. ___codeseg:
  55.  .align 4
  56. #
  57. #
  58.  .byte 'c','r','e','a'
  59.  .byte 't','e','_','t'
  60.  .byte 'h','r','e','a'
  61.  .byte 'd',0,0,0
  62.  .long 0xff000010
  63.  .align 4
  64. #
  65. #
  66. _stack_switch_and_go:
  67.  movw    r0,r3        # Pick up the stack base
  68.  movw    r3,sp        # Set the stack pointer
  69.  b    (r1)        # enter the rest.
  70.  .align 4
  71. #
  72.  .data
  73. #
  74. ___dataseg:
  75. #
  76.  .globl _stack_switch_and_go
  77. #
  78. # .extern _nil
  79. # .extern __fprintf
  80. # .extern __iob
  81. #
  82. # END
  83. @
  84.